program Project1; // Zadanie 2.4

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, c, x : Real;

begin
  Writeln('Program oblicza wartosc x z rownania liniowego ax+b = c.');
  Writeln('Podaj wartosc a.');
  Readln(a);

  if (a = 0) then
    Writeln('Niedozwolona wartosc a. Nacisnij klawisz Enter.')
  else
    begin
      Writeln('Podaj wartosc b.');
      Readln(b);
      Writeln('Podaj wartosc c.');
      Readln(c);

      x := (c-b)/a;

      Write('Dla: a = ', a:4:2, ',');
      Write(' b = ', b:4:2, ',');
      Write(' c = ', c:4:2, ',');
      Write(' wartosc x jest rowna ',x:4:2, '.');
    end;

  Readln; // czeka na nacisniecie klawisza Enter
end.
